home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 22 / 2 / DISK2220.ZIP / SCREDIT4.EXE / TPUBUILD.BAT < prev    next >
DOS Batch File  |  1990-11-07  |  5KB  |  128 lines
  1. echo off
  2. if "%1"=="4" goto Test1
  3. if "%1"=="5" goto Test1
  4. echo -------------------------------------------------------------------------
  5. echo - ** ERROR IN PARAMETER #1 ** Select (4 or 5)   4 = Version 4.0
  6. echo -                                               5 = Version 5.0 or 5.5
  7. goto error
  8. :Test1
  9. if not "%2"=="" goto Test2
  10. echo -------------------------------------------------------------------------
  11. echo - ** ERROR IN PARAMETER #2 ** You must tell this procedure where it can
  12. echo - locate TPC.EXE - At lease Drive: is required.
  13. goto error
  14. :Test2
  15. if exist %2\TPC.EXE  goto Test25
  16. echo -------------------------------------------------------------------------
  17. echo - ** ERROR IN PARAMETER #2 ** Unable to locate TPC.EXE in the directory:
  18. echo -[%2] (TPC.EXE is the Turbo Pascal Command line compiler)
  19. goto error
  20. :Test25
  21. if exist %3\graph.tpu goto test3
  22. echo -------------------------------------------------------------------------
  23. echo - ** ERROR IN PARAMETER #3 ** Unable to locate GRAPH.TPU the directory:
  24. echo -[%3] (GRAPH.TPU came with your Turbo Pascal Compiler..)
  25. goto error
  26. :Test3
  27. if exist scredit.pas goto Test4
  28. echo -------------------------------------------------------------------------
  29. echo - ** ERROR IN PARAMETER #2 ** ScrEdit.Pas is not in current directory.
  30. goto error
  31. :Test4
  32. if exist validate.pas goto Test5
  33. echo -------------------------------------------------------------------------
  34. echo - ** ERROR IN PARAMETER #2 ** Validate.Pas is not in current directory.
  35. goto error
  36. :Test5
  37. if exist scrmouse.pas goto DoScrEdit
  38. echo -------------------------------------------------------------------------
  39. echo - ** ERROR IN PARAMETER #2 ** ScrMouse.Pas is not in current directory.
  40. goto error
  41. :error
  42. echo -------------------------------------------------------------------------
  43. echo - ****  Turbo ScrEdit - Turbo Pascal "Unit" Library Build Utility.   ****
  44. echo -
  45. echo - This batch file executes the Turbo Pascal command line compiler TPC.EXE
  46. echo - and creates the files: ScrEdit.Tpu, ScrMouse.Tpu, and Windows.Tpu.
  47. echo -
  48. echo - Format: TpuBuild Option Path-1 Path-2 Path-3
  49. echo -                  ------ ------ ------ -------
  50. echo -
  51. echo - Option: Specifies your compiler version. Select 4 or 5 (5 = 5 & 5.5)
  52. echo - Path-1: Drive:\Path where TPC.EXE resides.
  53. echo - Path-2: Drive:\Path where GRAPH.TPU is stored.
  54. echo - Path-3: Drive:\Path where unit files are to be stored after they are
  55. echo -         compiled.
  56. echo -
  57. echo -     Example: TpuBuild 5 C:\TP C:\Tp\Units C:\Tp\Units
  58. echo - -----------------------------------------------------------------------
  59. goto Bombed
  60. :DoScrEdit
  61. if exist windows.pas goto DoWindows
  62. if "%2"=="" goto C1
  63. if "%1"=="5" goto Comp2
  64. %2\tpc /B /U%3 /E%4 /$B+ /$D- /$R- scredit.pas
  65. if "%4"=="" goto cont1
  66. copy *.tpu %4
  67. del  *.tpu
  68. goto cont1
  69. :Comp2
  70. %2\tpc /l /M /$A- /$B+ /$D- /$E+ /$L- /$O+ /$R- /U%3 /E%4 scredit.pas
  71. goto cont1
  72. :C1
  73. if "%1"=="5" goto Comp3
  74. tpc /B /$B+ /$D- /$R- scredit.pas
  75. if "%4"=="" goto Cont1
  76. copy *.tpu %4
  77. del  *.tpu
  78. goto cont1
  79. :Comp3
  80. tpc /l /M /$A- /$B+ /$D- /$E+ /$L- /$O+ /$R- scredit.pas
  81. :cont1
  82. echo -------------------------------------------------------------------------
  83. echo - ***   Evaluation version does not include pop up windows library    ***
  84. goto done
  85. :DoWindows
  86. if "%2"=="" goto C2
  87. if "%1"=="5" goto Comp4
  88. %2\tpc /B /U%3 /E%4 /$B+ /$D- /$R- Windows.Pas
  89. if "%4"=="" goto C3
  90. copy *.tpu %4
  91. del  *.tpu
  92. goto C3
  93. :Comp4
  94. %2\tpc /l /M /B /$A- /$B+ /$D- /$E+ /$L- /$O+ /$R- /U%3 /E%4 Windows.pas
  95. goto C3
  96. :C2
  97. if "%1"=="5" goto Comp5
  98. %2\tpc /E%4 /U%3 /B /$B+ /$D- /$R- Windows.Pas
  99. if "%4"=="" goto C3
  100. copy *.tpu %4
  101. del  *.tpu
  102. goto C3
  103. :Comp5
  104. %2\tpc /l /M /B /$A- /$B+ /$D- /$E+ /$L- /$O+ /$R- /U%3 /E%4 Windows.pas
  105. :C3
  106. echo -
  107. echo -
  108. goto done
  109. :Bombed
  110. echo -  Turbo ScrEdit Unit File Build ** FAILED ** FAILED ** FAILED ** FAILED
  111. echo -------------------------------------------------------------------------
  112. goto end
  113. :done
  114. echo -------------------------------------------------------------------------
  115. echo - Turbo ScrEdit interface unit files hav been created and are ready for
  116. echo - use.
  117. echo -
  118. if  "%4" == "" goto  blank
  119. echo - Be sure to include the directory "%4" as one of the
  120. goto done2
  121. :blank
  122. echo - so it includes the current directory as one of the search directories.
  123. :done2
  124. echo - directories listed in your compilers OPTION/DIRECTORY/UNIT DIRECTORIES
  125. echo - search list.
  126. echo -------------------------------------------------------------------------
  127. :end
  128. echo -